-- background: 4055 from stack: in
-- bmap block id: 4336
-- flags: 0000
-- background id: 0
-- name: 


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=389 top=84 right=100 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber


-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=54 top=4 right=68 bottom=420
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 22
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: comment


-- part 10 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=400 top=194 right=216 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script for Real
----- HyperTalk script -----
on mouseUp
  get card field "NumberOfTries"
  if it is empty then
    show card field "A"
    show card field "B"
    show card field "HideTheBackground"
    show card field "TheWord"
    show button "Radio1"
    set the hilite of card button "Radio1" to false
    show button "Radio2"
    set the hilite of card button "Radio2" to false
    show button "done"
    put 1 into card field "NumberOfTries"
  end if

end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=400 top=105 right=127 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Script for RealII
----- HyperTalk script -----
on mouseUp
  hide card field "A"
  hide card field "B"
  hide card field "HideTheBackground"
  hide card field "TheWord"
  hide button "Radio1"
  hide button "Radio2"

  get card field "TheAnswer"
  If (it="A") or (it="a") then  -- if he chose the first radio button
    if (the hilite of card button "Radio1" = true) then
      add 1 to card field "VocNumberCorrect" of card id 84491
      put "You're Correct!!"
    else
      add 1 to card field "VocNumberWrong" of card id 84491
      put "You're Wrong!  The correct answer was A.  Press the mouse"
      lock screen
      show card field "A"
      Unlock screen with dissolve
    end if
  else                          -- if he chose the second radio button
    if (the hilite of card button "Radio2" = true) then
      add 1 to card field "VocNumberCorrect" of card id 84491
      put "You're Correct"
    else
      add 1 to card field "VocNumberWrong" of card id 84491
      put "You're Wrong!  The correct answer was B.  Press the mouse"
      lock screen
      show card field "B"
      Unlock screen with dissolve
    end if
  end if
  hide button "Done"
  wait until the mouseclick
  lock screen
  hide card field "A"
  hide card field "B"
  unlock screen with dissolve
  hide message box
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=324 top=318 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I'm done with this Question
----- HyperTalk script -----
on mouseUp
  hide card field "A"
  hide card field "B"
  hide card field "HideTheBackground"
  hide button "Radio1"
  hide button "Radio2"
  hide button "NoPageTurn"
  hide card field "TheWord"
  hide card field "TheAnswer" -- The user should never see this one
  hide bkgnd button "I'm done with this Question"

  domenu "New button"
  get the number of card buttons
  set the name of card button it to "VocabularyQuestion"
  set the loc of button "VocabularyQuestion" to 60,117
  set the style of button "VocabularyQuestion" to transparent
  set showname of button "VocabularyQuestion" to false
  set the script of button "VocabularyQuestion" to the script of bkgnd button "Script for real"
  set the icon of button "VocabularyQuestion" to 21060
  set the rect of card button "VocabularyQuestion" to 35,114,85,151

  domenu "New button"
  get the number of card buttons
  set the name of card button it to "Done"
  set the style of button "Done" to roundrect
  set showname of button "Done" to true
  set the script of button "Done" to the script of bkgnd button "Script for RealII"
  set the rect of card button "done" to 186,73,286,95
  hide card button "Done"

  choose browse tool
end mouseUp